Public Class SProcText
    Private mlID As Long
    Private mlSProcID As Long
    Private msText As String
    Private miOrder As Integer

#Region "Properties"
    Public Property ID() As Long
        Get
            Return mlID
        End Get
        Set(ByVal value As Long)
            mlID = value
        End Set
    End Property

    Public Property SProcID() As Long
        Get
            Return mlSProcID
        End Get
        Set(ByVal value As Long)
            mlSProcID = value
        End Set
    End Property

    Public Property Text() As String
        Get
            Return msText
        End Get
        Set(ByVal value As String)
            msText = value
        End Set
    End Property

    Public Property Order() As Integer
        Get
            Return miOrder
        End Get
        Set(ByVal value As Integer)
            miOrder = value
        End Set
    End Property
#End Region
End Class
